home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / FLIGHTS2.COB < prev    next >
Text File  |  1998-02-04  |  22KB  |  547 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.   FLIGHTS2.
  3.       *PROGRAM DISCRIPTION.
  4.       *  A program to update and print data from an indexed file called 
  5.       * 'FLIGHT. FILE'.Used to translate value codes from the input file
  6.       * to a more readable form are two lookup tables called 'AIRPLANES'
  7.       * and 'AIRPORTS'.
  8.       *  AIRPLANE, contains the airplanes' code and their corresponding
  9.       * discription. AIRPORTS ,contains the airports' code and their
  10.       * corresponding airport names. PRINTER.TEST file version.
  11.       *
  12.       *AUTHOR.        cHArRiOTt.
  13.       *INSTALLATION.
  14.       *DATE-WRITTEN.  SEP 28th 89.
  15.       *DATE-COMPILLED.
  16.       *SECURITY.
  17.        ENVIRONMENT DIVISION.
  18.  
  19.        CONFIGURATION SECTION.
  20.        SOURCE-COMPUTER.   AMSTRAD 1512 .
  21.       *             or you could try   WITH DEBUGGING MODE.
  22.        OBJECT-COMPUTER.
  23.        INPUT-OUTPUT SECTION.
  24.        FILE-CONTROL.
  25.             SELECT           AIRPORT
  26.             ASSIGN TO        DISK
  27.             ORGANIZATION IS  INDEXED
  28.             ACCESS MODE  IS  DYNAMIC
  29.             RECORD KEY   IS  ER-AIRPORT-CODE
  30.             FILE STATUS  IS  WS-AIRPORT-STATUS.
  31.  
  32.             SELECT           AIRPLANE
  33.             ASSIGN TO        DISK
  34.             ORGANIZATION IS  LINE SEQUENTIAL
  35.             ACCESS MODE  IS  SEQUENTIAL
  36.             FILE STATUS  IS  WS-AIRPLANE-STATUS.
  37.  
  38.             SELECT           FLIGHT
  39.             ASSIGN TO        DISK 
  40.             ORGANIZATION IS  INDEXED
  41.             ACCESS MODE  IS  DYNAMIC
  42.             RECORD KEY   IS  ER-FLIGHT-NUMBER
  43.             FILE STATUS  IS  WS-FLIGHT-STATUS.
  44.  
  45.             SELECT           AIR-PRINT
  46.             ASSIGN TO        PRINTER
  47.             ORGANIZATION IS  SEQUENTIAL
  48.             ACCESS MODE  IS  SEQUENTIAL
  49.             FILE STATUS  IS  WS-PRINTER-STATUS.
  50.       *
  51.        DATA DIVISION.
  52.        FILE SECTION.
  53.        FD AIRPORT
  54.             LABEL RECORD IS  STANDARD
  55.             VALUE OF FILE-ID IS "AIRPORTS.OUT".
  56.        01 ER-AIRPORT-REC.
  57.            03 ER-AIRPORT-CODE      PIC 99.
  58.            03 ER-AIRPORT-NAME      PIC X(15).
  59.  
  60.        FD AIRPLANE
  61.             LABEL RECORD IS STANDARD
  62.             VALUE OF FILE-ID IS "AIRPLANE".
  63.        01 ER-AIRPLANE-REC.
  64.            03 ER-AIRPLANE-CODE     PIC X(4).
  65.            03 ER-MAKE-MODEL        PIC X(16).
  66.  
  67.        FD FLIGHT
  68.            LABEL RECORD IS STANDARD
  69.            VALUE OF FILE-ID IS "FLIGHTOUT.FIL".
  70.        01 ER-FLIGHT-REC.
  71.            03 ER-FLIGHT-NUMBER     PIC 9(5).
  72.            03 ER-AIRPLANE-ID       PIC 9(5).
  73.            03 ER-AIRPLANE-MK-CODE  PIC X(4).
  74.            03 ER-FLIGHT-ORG-CODE   PIC 99.
  75.            03 ER-FLIGHT-DES-CODE   PIC 99.
  76.            03 ER-SEATS-FILLED      PIC 999.
  77.            03 ER-SEATS-TABLE.                                 
  78.               05 ER-SEAT-TABLE     OCCURS 10 TIMES.
  79.                  08 ER-SEAT-LETTER OCCURS  6 TIMES.
  80.                     10 ER-SEAT     PIC 9(4).
  81.  
  82.        FD AIR-PRINT
  83.             LABEL RECORD IS OMITTED
  84.             VALUE OF FILE-ID IS "PRINTER.TEST".
  85.        01 OUT-PRINT-REC.
  86.            03 FILLER               PIC X(80).
  87.       *
  88.        WORKING-STORAGE SECTION.
  89.        01 WS-AIRPORT-REC.
  90.            03 WS-AIRPORT-CODE      PIC 99       VALUE 99.
  91.            03 WS-AIRPORT-NAME      PIC X(15).
  92.       *
  93.        01 WS-AIRPLANE-REC.
  94.            03 WS-AIRPLANE-ARRAY    OCCURS 10 TIMES.
  95.              05 WS-AIRPLANE-CODE   PIC X(4)     VALUE "0000".
  96.              05 WS-MAKE-MODEL      PIC X(16).
  97.       *
  98.        01 WS-FLIGHT-REC.
  99.            03 WS-FLIGHT-NUMBER     PIC 9(5)     VALUE 99.
  100.            03 WS-AIRPLANE-ID       PIC 9(5).
  101.            03 WS-AIRPLANE-MK-CODE  PIC X(4).
  102.            03 WS-FLIGHT-ORG-CODE   PIC 99.
  103.            03 WS-FLIGHT-DES-CODE   PIC 99.
  104.            03 WS-SEATS-FILLED      PIC 999.
  105.            03 WS-SEATS-TABLE.
  106.               05 WS-SEAT-TABLE     OCCURS 10 TIMES.
  107.                  08 WS-SEAT-LETTER OCCURS  6 TIMES.
  108.                     10 WS-SEAT     PIC 9(4).
  109.       *
  110.       *
  111.        01 WS-AIRPLANE-END-FLAG      PIC X        VALUE " ".
  112.            88 WS-AIRPLANE-END                     VALUE "S".
  113.        01 WS-AIRPORT-END-FLAG      PIC X        VALUE " ".
  114.            88 WS-AIRPORT-END                     VALUE "S".
  115.        01 WS-FLIGHT-END-FLAG       PIC X        VALUE " ".
  116.            88 WS-FLIGHT-END                      VALUE "S".
  117.        01 WS-STOP-RUN-FLAG         PIC X        VALUE " ".
  118.        01 WS-ABORT-FLAG            PIC X        VALUE " ".
  119.  
  120.        01 WS-FLIGHT-STATUS         PIC XX       VALUE "00".
  121.        01 WS-AIRPLANE-STATUS       PIC XX       VALUE "00".
  122.        01 WS-AIRPORT-STATUS        PIC XX       VALUE "00".
  123.        01 WS-PRINTER-STATUS        PIC XX       VALUE "00".
  124.  
  125.        01 WS-RECORD-COUNTER        PIC 99       VALUE 00.
  126.        01 WS-PAGE-COUNTER          PIC 99       VALUE 00.
  127.        01 WS-LINE-COUNTER          PIC 99       VALUE 00.
  128.        01 WS-SEAT-ROW              PIC 99       VALUE 00.
  129.        01 WS-SEAT-COLUMN           PIC 99       VALUE 00.
  130.        01 WS-SEAT-NUMBER           PIC 9999     VALUE 0000.
  131.        01 WS-FLIGHT-DEPARTURES     PIC X(15)    VALUE SPACES.
  132.        01 WS-FLIGHT-ARRIVALS       PIC X(15)    VALUE SPACES.
  133.        01 WS-AIRPLANE-NAME         PIC X(16)    VALUE SPACES.
  134.        01 WS-NUMBER-OF-FLIGHTS     PIC 999      VALUE 000.
  135.        01 WS-TOTAL-SEATS-USED      PIC 9(5)     VALUE 000.
  136.        01 WS-TOTAL-SEATS           PIC 9(5)     VALUE 000.
  137.        01 WS-PERCENT-SEATS-FILLED  PIC 9(5)     VALUE 000.
  138.        01 WS-AVERAGE-SEATS-USED    PIC 9(5)     VALUE 000.
  139.        01 WS-AVG-PERCENT-SEATS-FILLED PIC 9(5)   VALUE 000.
  140.        01 WS-REAL-DATE.
  141.            03 WS-REAL-YEAR         PIC XX.
  142.            03 WS-REAL-MONTH        PIC XX.
  143.            03 WS-REAL-DAY          PIC XX.
  144.        01 WS-TEMP-DATE.
  145.            03 WS-TEMP-DAY          PIC XX.
  146.            03 FILLER               PIC X        VALUE "/".
  147.            03 WS-TEMP-MONTH        PIC XX.
  148.            03 FILLER               PIC X        VALUE "/".
  149.            03 WS-TEMP-YEAR         PIC XX.
  150.        01 WS-RESPONCE              PIC X        VALUE " ".
  151.            88 WS-RESPONCE-C        VALUE "C" "c".
  152.            88 WS-RESPONCE-R        VALUE "R" "r".
  153.            88 WS-RESPONCE-Q        VALUE "Q" "q".
  154.            88 WS-RESPONCE-Y        VALUE "Y" "y".
  155.            88 WS-RESPONCE-N        VALUE "N" "n".
  156.            88 WS-RESPONCE-YN       VALUE "Y" "y"
  157.                                          "N" "n".
  158.        01 PRINT-PROG-TITLE.
  159.            03 FILLER               PIC X(5)  VALUE "PAGE ".
  160.            03 WS-PRT-PAGE-COUNTER  PIC 99.
  161.            03 FILLER               PIC X(20) VALUE SPACES.
  162.            03 FILLER               PIC X(25) VALUE
  163.               "AIRLINE SEAT USAGE REPORT".
  164.            03 FILLER               PIC X(20) VALUE SPACES.
  165.            03 WS-PRT-TEMP-DATE     PIC X(8).
  166.        01 PRINT-RECORD.
  167.            03 PRT-AIRPLANE-ID.
  168.               05 FILLER               PIC X(33) VALUE
  169.                "     AIRPLANE-ID               : ".
  170.               05 WS-PRT-AIRPLANE-ID   PIC 9(5).
  171.            03 PRT-AIRPLANE-NAME.
  172.               05 FILLER               PIC X(33) VALUE 
  173.                "     AIRPLANE NAME             : ".
  174.               05 WS-PRT-AIRPLANE-NAME PIC X(16).
  175.            03 PRT-AIRPORT-ORG.
  176.               05 FILLER               PIC X(33) VALUE
  177.                "     AIRPORT - ORIGINATION     : ".
  178.               05 WS-PRT-AIRPORT-ORG   PIC X(15).
  179.            03 PRT-AIRPORT-DES.
  180.               05 FILLER               PIC X(33) VALUE
  181.                "     AIRPORT - DESTINATION     : ".
  182.               05 WS-PRT-AIRPORT-DES   PIC X(15).
  183.            03 PRT-SEATS-FILLED.
  184.               05 FILLER               PIC X(33) VALUE
  185.                "     SEATS FILLED              : ".
  186.               05 WS-PRT-SEATS-FILLED  PIC ZZ9.
  187.            03 PRT-PERCENT-SEATS-FILLED.
  188.               05 FILLER               PIC X(34) VALUE
  189.                "     PERCENTAGE OF SEATS FILLED: %".
  190.               05 WS-PRT-PERCENT-SEATS-FILLED    PIC ZZ9.
  191.        01 PRINT-TOTALS.
  192.            03 PRT-NUMBER-OF-FLIGHTS.
  193.               05 FILLER               PIC X(33) VALUE
  194.                "     NUMBER OF FLIGHTS         : ".
  195.               05 WS-PRT-NUMBER-OF-FLIGHTS       PIC ZZ9.
  196.            03 PRT-TOTAL-SEATS-USAGE.
  197.